home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / dev / amos / AMOS_0795.lzh / AMOSLIST / 000026_amos-request@svcs1.digex.net_Thu Jul 6 15:42:10 1995.msg < prev    next >
Internet Message Format  |  1995-08-04  |  3KB
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224]) by mail1.access.digex.net (8.6.12/8.6.12) with ESMTP id PAA12663;  for  ; Thu, 6 Jul 1995 15:41:33 -0400
  2. Received: (from daemon@localhost) by svcs1.digex.net (8.6.12/8.6.12) id OAA00740 for amos-out; Thu, 6 Jul 1995 14:08:45 -0400
  3. Received: from mail1.access.digex.net (mail1.access.digex.net [205.197.247.2]) by svcs1.digex.net (8.6.12/8.6.12) with ESMTP id OAA00734 for <amos-list@svcs1.digex.net>; Thu, 6 Jul 1995 14:08:43 -0400
  4. Received: from kyoko.mpx.com.au (kyoko.mpx.com.au [203.2.75.2]) by mail1.access.digex.net (8.6.12/8.6.12) with ESMTP id OAA00345;  for <amos-list@access.digex.net> ; Thu, 6 Jul 1995 14:08:40 -0400
  5. Received: from cristal.mpx.com.au by kyoko.mpx.com.au with smtp
  6.     (Smail3.1.29.1 #7) id m0sTvN0-0006PrC; Fri, 7 Jul 95 04:09 EST
  7. Received: from comlink.mpx.com.au by cristal.mpx.com.au with uucp
  8.     (Smail3.1.28.1 #3) id m0sTunI-0000aXC; Fri, 7 Jul 95 03:32 EDT
  9. Received: by comlink.mpx.com.au (V1.16/Amiga)
  10.     id AA0209c; Thu, 6 Jul 95 19:06:12 1100
  11. Date: Thu, 6 Jul 95 19:06:12 1100
  12. Message-Id: <9507070106.AA0209b@comlink.mpx.com.au>
  13. From: Darryl_Lewis@comlink.mpx.com.au (Darryl Lewis)
  14. To: amos-list@access.digex.net
  15. Subject: AGA finally
  16. Status: RO
  17. X-Status: 
  18.  
  19. Ok, you need the pointer commands I sent the other night.
  20. Then use this:
  21. '--------------------------
  22. 'like I said this is a bit of a hack, but it does show you that it should
  23. be 
  24. 'possible to get a working extension from this idea.
  25. Screen Open 0,1023,256,4,Hires
  26. Screen Display 0,,,1023,256
  27. C0=Colour(0)
  28. C1=Colour(1)
  29. C2=Colour(2)
  30. C3=Colour(3)
  31. Copper Off 
  32. Do 
  33.    Inc X
  34.    Cop Move $180,C0
  35.    Cop Move $182,C1
  36.    Cop Move $184,C2
  37.    Cop Move $186,C3
  38.    Cop Move $8E,$3281
  39.    Cop Move $90,$3281
  40.    Cop Move $92,$40
  41.    Cop Move $94,$C0
  42.    Cop Move $108,-10
  43.    Cop Move $10A,-10
  44.    Cop Movel $E0,Logbase(0)
  45.    Cop Movel $E4,Logbase(1)
  46.    Cop Move $100,%10001001000000
  47.    Cop Move $96,%1000001111111111
  48.    Cop Swap 
  49.    Limit Mouse 
  50.    Repeat 
  51. ' you can put your program code in place of the following:
  52.       A$=Inkey$
  53.       If A$<>"" : 
  54.          Print A$;
  55.       End If 
  56.       If Key State(68)=-1 : Print Chr$(13) : End If 
  57.    Until Mouse Key=2
  58.    Wait Vbl 
  59. Loop 
  60. Copper On 
  61. Edit 
  62.  
  63. Darryl
  64.  
  65. -- Via DLG Pro v1.0
  66.  
  67.  
  68.                #####\             _             /#####
  69.                #( )# |          _( )__         | #( )# 
  70.                ##### |         /_    /         | #####
  71.                #" "# |     ___m/I_ //_____     | #" "#
  72.                # O # |____#-x.\ /++m\ /.x-#____| # O #
  73.                #m.m# |   /" \ ///###\\\ / "\   | #m.m#
  74.                #####/    ######/     \######    \#####
  75.